Главная страница / Полезная информация по таблице свойств (ShapeSheet™) / Справочник по таблице свойств / Список ячеек по алфавиту / Список ячеек по разделам

Ячейка DrawingScale (раздел Page Properties)

Представляет значение единицы документа в текущем масштабе документа. Масштаб документа страницы — это отношение единицы страницы в ячейке PageScale к единице документа в ячейке DrawingScale.

Заметки

Значение в этой ячейке совпадает со значением соответствующего параметра в диалоговом окне Параметры страницы (чтобы его вызвать, щелкните стрелку Параметры страницы на вкладке Главная).

Единицы в формуле ячейки DrawingScale определяют единицы измерения, используемые в линейках в окне документа. Если изменять масштаб документа не требуется, можно:

сохранить расстояние в ячейке DrawingScale прежним, однако выразить его в других единицах измерения;

умножить расстояние в ячейке PageScale на тот же коэффициент, на который изменяется значение DrawingScale.

Чтобы получить ссылку на ячейку DrawingScale по имени из другой формулы или из программы с помощью свойства CellsU, используйте указанные ниже параметры.

Имя ячейки:

DrawingScale

Чтобы получить ссылку на ячейку DrawingScale по индексу из программы, воспользуйтесь свойством CellsSRC с указанными ниже аргументами.

Индекс раздела:	visSectionObject
Индекс строки:	visRowPage
Индекс ячейки:	visPageDrawingScale

Пример

Изменив значение в ячейке DrawingScale, можно изменить единицы измерения линеек на странице из программы. Вот пример того, как из программы изменить единицы измерения с дюймов на сантиметры. В этом случае с помощью метода ConvertResult сохраняется прежнее расстояние, но выражается в других единицах.

Visual Basic для приложений

Public Sub SetActivePageMeasurementToCM()

Dim dsCell As Visio.Cell

Set dsCell = ActivePage.PageSheet.Cells("DrawingScale")

dsCell.Result(visCentimeters) = _

Application.ConvertResult _

(dsCell.ResultIU,visInches,visCentimeters)

End Sub

Чтобы определить, какая система мер используется в документе, проверьте свойство Units ячейки DrawingScale. После выполнения указанного выше макроса следующий оператор, выполненный в окне интерпретации редактора Visual Basic, возвратит значение TRUE.

Visual Basic для приложений

debug.print ActivePage.PageSheet.Cells("DrawingScale").Units = _

visCentimeters